home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagg_m.zip
/
GRAPHICS.SWG
/
0032_Simple & QUICK Graphics.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-11-02
|
940b
|
63 lines
{ STEVE BOUTILIER }
Uses
Dos,
Crt;
Procedure OpenGraphics; Assembler;
Asm
Mov Ah, 00h
Mov Al, 13h
Int $10
end;
Procedure CloseGraphics; Assembler;
Asm
Mov Ah, 00h
Mov Al, 03h
Int $10
end;
Procedure PutXY(X, Y : Byte); Assembler;
Asm
Mov Ah, 02h
Mov Dh, Y - 1
Mov Dl, X - 1
Mov Bh, 0
Int $10
end;
Procedure OutChar(S : Char; Col : Byte); Assembler;
Asm
Mov Ah, 0Eh
Mov Al, S
Mov Bh, 0
Mov Bl, Col
Int $10
end;
Procedure OutString(S : String; Col : Byte);
Var
I : Integer;
Ch : Char;
begin
For I := 1 to Length(s) do
begin
Ch := S[I];
OutChar(Ch, Col);
end;
end;
begin
OpenGraphics;
OutString('HELLO WORLD!' + #13#10, 14);
Repeat Until KeyPressed;
CloseGraphics;
end.
{
BTW: This code is Public Domain! Do what you want With it! most of you
probably already have routines that are even better than this.
}